home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / GWAda 1.5.1 / GW-Ada⁄Ed-MacProgs / GWU Demos / phil.ads < prev    next >
Encoding:
Text File  |  1993-02-03  |  378 b   |  17 lines  |  [TEXT/????]
  1. --::::::::::
  2. --phil.ads
  3. --::::::::::
  4. PACKAGE Phil IS
  5.   
  6.   TASK TYPE Philosopher IS
  7.     
  8.     ENTRY Come_To_Life (My_ID :      Positive; 
  9.                         Chopstick1 : Positive;
  10.                         Chopstick2 : Positive);
  11.  
  12.   END Philosopher;
  13.  
  14.   TYPE States IS (Breathing, Thinking, Eating, Done_Eating,
  15.                     Got_One_Stick, Got_Other_Stick);
  16.  
  17. END Phil;